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Xoct QiiHa Qotttn Ptip 
— 1 t;ol OUIltS ociup ■ lie 




Thic fiii^ inrJiiiip^ ^ptun Darameters for the test suite and can 
-be placed at C:\lest_suite\ 

- ******* Note: Do not change the working directory path ....!!! ******* 




- Specifies \Nh\ch Editor to utilize 

- ^eXainpiC. ISUIlUi'~ilUlCpaU.CAv;y 

- Note: If a editor does not exist, enter none 

- (example: editop=none) 




editor=notepad.exe 




-PDL Delimiters 

- Note: If no PDL enter none 

- Example: highJeve!=none 

- Example: lowJevel=none 




nign__ievei= /o /o 
lowJevel=% 




— specify uireciones 




cm source dir=C:\test_suite\cm_source\ 
ts output dir=C:\lest_suite\ts_output\ 
build dir=C:Vtest suite\build\ 
workingLdir=C:\test_suite\ 
temp_dir=C:ttest_suiteVlemp\ 




— i\QB rarameiero 

- Note: ada^versions = ada83orada95 




ada_ver5ion=ada95 

ada_spec_suffi)^.ads 

ada_tx)dy_suffix=.adb 

ada_separate_suffix=.a 

ada_compiler==adagide.exe 

KjTvIa* If o oHa or>mnilor Hnoie nof o^riiSt Alitor finflf^ 

— iMOie. IT a aoa coinpiior uueo iiui tsAidi, ciiici nunc; 

- (example: ada_compiler=none) 




-C Parameters 




c_sufrix=.c 
c_header_suffix=.h 
c compiier=none 

- Note: If a c compiler does not esist, enter none 

- (example: c_compiler=none) 




-Fortran Parameters 




fortran_suffix=.f 
fortran_compiler=none 

— Note: If a tbrtran compiler does not exist, enter none 

- (example: fortran_compiler=none) 




loptions *** Note: DO NOT MODIFY *** 

date.stamp=0 

source_code_rev=0 

test_comments=1 

spec_refe=1 

auto_seq=1 
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SOURCE_UNDER_TEST=radar_altimeter.adb 
SOURCE VERSION= 

sees INFO: @(#) radar^altimeter.adb 1 .26 01/09/18 

10:47:03 

PACKAGE=Radar_Altimeter 
START_VECTOR_DATA 
OUTPUT.VARIABLE F=AnalogJnput.Lt_Antenna_Volts 
EXPECTED_VALUE=MB.O 
TOLERANCE_P=0.0 
END VECTOR_DATA 
PROCEBURE/FUNCTION=Update 
START_TEST=1 
START_COMMENT 

update - Ramp antenna voltage up to 6 votts. Compute 
the radar attitude, Rate of climb and terrain 
slope for each iteration. Radar attitude will increase on 
each iteration and the ROC will remain constant. 
END^COMMENT 
START.REQUIREMENT 

The Radar Altimeter processing will select the appropriate transmit and 
receive antenna pair t>ased on the aircraft attitude to provide radar 
altimeter operation over the required attitude range. Radar Altimeter 
processing shall provide continuous coverage below 5,000 feet AGL. 
[SRS-459] 
END^REQUIREMENT 
NUMJTERATIONS=1 
START_ITER=1 

STARTJNPUT CODE 
with Common JjTypes; 
Volts : Commonjrypes.Float_32_Type; 
with Navigation; 

Navigation. InertiaLVelocity(Navigation.North) := 500.0; 
Navigation.lnertiaLVelocity{Navigatlon.Down) := 26.0; 
Volts := 8.0; 
with Analog Jnput; 

AnalogJnput.Put_Antenna_Volts(AnalogJnput.Lt_Ant, Volts); 
Analog Input.Put Antenna_Volts(AnalogJnput.Rt_Ant, Volts); 
AnalogJnput.PutlAntenna_Volts(AnalogJnput.Ctr_Ant. VoHs); 
with Antenna; 
Antenna. Update; 

Navigation.RolLAngle.Value := 45.0; 
Navigation.RolLAngle.Valid := True; 
with Attitude^Alt; 

Attitude_Alt.RolLAngle.Value := 0.0; 
Attitude_Aft.RolLAngle.Valid := False; 

end input code 
starT_outpUt_code 

with Common_Types; 

Radar_Altitude : Common_Types.Validity_Tested_Type; 
with Radar_Altimeter; 

Radar_Altitude := Radar_Altimeter.Get_Radar_Altitude; 
END OUTPUT_CODE 
START_EXPECTED_RESULTS 

OUTPUT_VARIABLE_F=Radar_Altitude.Value 

EXPECTED VALUE=120.25 

TOl-ERANCl_R=0.0 
END_EXPECTED.RESULTS 
START^EXPECTED.RESULTS 

OUTPUT_VARIABLE_B=Radar.Altitude.Valid 

EXPECTED_VALUE=TRUE 

TOLERANCE_P=N/A 
END.EXPECTED^RESULTS 
ENDJTER=1 

END TEST=1 ^^^^ 
END TEST FILE 1300 
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Created On: 07/16/2002 13:53:00 

** sees INFO: @(#) radar^altimeter.adb 1.26 01/09/18 10:47:03 
**Requirement eomments: 

** The Radar Altimeter processing will select the appropriate transmit and 
** receive antenna pair based on the aircraft attitude to provide radar 
** altimeter operation over the required attitude range. Radar Altimeter 
processing shall provide continuous coverage below 5,000 feet AGL. 
** [SRS-459] 

**Test Description Comments: 

** update - Ramp antenna voltage up to 6 volts. Compute 

** the radar altitude, Rate of climb and terrain 

** slope for each iteration. Radar altitude will increase on 

** each iteration and the ROC will remain constant. 

**Package Name: Radar_Altlmeter 

**Procedure Name: Update 

*Test Case Number: 1 



Variable Name 
Results 

Radar^Altitude. Value 
PASS 

Radar_Altitude.Valid 
Vector Data Results 



Actual Value Expected Value Tolerance 

1 .20250E+02 1 .20250E+02 (+/-) O.OOOOOE+00 
TRUE TRUE N/A PASS 



AnalogJnput.Lt_Antenna_Volts 
8.00000E+00 

SUMMARY For: radar_altimeter_drv 

2 



O.OOOOOE+00 (%) O.OOOOOE+00 



FAIL 



Number Passed 
Number Failed: 
Total: 3 
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Source File: analogjnput.adb 
package body Analog_lnput is 
procedure Put_Antenna_Volts 

(VVhich_One . in Antenna_Type; 
Volts : in Common_Types.Float_32_Type) is 
case Which_One is 
when Lt_Ant => 
when Rt_Ant => 
when Ctr_Ant => 
when others => 
function Get_Left_Ant 

return Common_Types.Float_32_Type is 
function Get_Right_Ant 

return Common_Types.Float_32_Type is 
function Get_Ctr_Ant 

return Common_Types.Float_32_Type is 
end Analogjnput; 

Number of Packages = 1 
Number of Procedures = 1 
Number of Functions =3 
Lines of PDL = 0 
Lines of Code (LOG) =15 

2400 
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